home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Graphics_Utils / Video Easel / CAMRexx / Denrite.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-06-24  |  840 b   |  33 lines
  1. /* Denrite by Charles Bennet, in CAMRexx by THOR */
  2.  
  3. MakeAlgorithm:
  4.    PLANEALGORITHM margolus hvcenters
  5. return
  6.  
  7. MakePlane:
  8.    if plane=0 then; do
  9.       if (center_ | cw_ | opp_ | ccw_) then     /* wall ? */
  10.          SETPLANE 0                             /* remove from moving */
  11.       else; do
  12.          if alt_ then   SETPLANE ccw
  13.          else           SETPLANE cw             /* random walk else */
  14.       end
  15.    end
  16.    if plane=1 then; do
  17.       if (center_ | cw_ | opp_ | ccw_) then; do /* wall again ? */
  18.             new=center | center_                /* glue here ! */
  19.             SETPLANE new
  20.       end; else
  21.             SETPLANE center_
  22.    end
  23.    if plane=2 then; do
  24.       new=(ul ^ ur)^(ll & lr)^(ul_ & ll_)^(ur_ ^ lr_)
  25.       SETPLANE new
  26.    end
  27.    if plane=3 then; do
  28.       SETPLANE center      /* delay line */
  29.    end
  30. return
  31.  
  32.  
  33.